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9 HISTORY ; Detailed Current Edit History 
(5) Pechoran ons 
(4) 1 FORSREAD_SO = READ Sequential OBJECT-FORMATTED 


v04-00 Page 1 
ORREADSO.MAR; 1 (1). 
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FORSREAD_SO - int f FORTRAN REA TIA 16-SEP-1984 :00: AX/ 
RORSREAD. entry point for FO EAD SEQUENTIA 16-SEP-19 90:00: 4¢ X/VMS Ma 2 
SEQUENTIAL OBJECT=FORMATT 
JAW1011 


cr 
6-SEP-1984 FORRTL.SRCJ 
D 


TITLE FORSREAD.SO - eneey point for FORTRAN ae 
IDENT /1-011/ File: FORREADSO.MAR Edit: 


MAAR ARASASALALALLALESLAS SAAR ESSA RRA AAR RRR ERAS ARRAS A RRR ARR A RRR RRR A RRR R ARR A DDS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
empokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS * 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S$ NOT SUPPLIED BY DIGITAL. 
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++ 
FACILITY: FORTRAN Support Library - user callable 
ABSTRACT: 


This module contains the enter oint for the FORTRAN 

READ SEQUENTIAL OBJECT-FORMATTED 1/0 statement. It is simply 
a call to FORS$$IO_BEG with bits in RO which describe the 
parameter List. FORSS$IO_BEG interprets the parameters. 


MAINTENANCE NOTE: , 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


PAP @ OOODNAUE WD 0 ODNAU EWN = OO ONA UE WIN O OONOAU EWN OOONOU Ewin 


PU BE BB BB BE BE EAA NNN Gr poponornonnnrnn- es es ee ee ee 


0 
. TRANSFER FORSREAD_SO 
0 . MASK FORS$$IO_BEG 
8 BRwW FORSREAB_SO+2 
0 This puts the correct mask in entry vector, that is FORSS$IO_BEG entry mask. 
000 Furthermore this module must only use RO and R1 
since any other register might not be in the entry mask for FORS$I0_BEG. 
8 ENVIRONMENT: User access mode; mixture of AST level or not 
: AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 
$0 0 MODIFIED BY: 
0000 T. Hastings, 29-July-78 
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-SBTTL HISTORY ; Detailed Current Edit History 


al 
oO 


r 


FORSREAD_SO t 
1-011 OR 


NO 


Edit History for Version 1 


Add comment about vectors. TNH 23-June-78 
Pass arg in RO, not ROR, add comments. TNH 29-July-78 
update version number and copyright notice. JBS 16-NOV-78 
Change statement type symbols to be LUBSK... JBS 07-DEC-78 
Change statement t pe symbols to be ISBSK..._ JBS 11-DEC-78 
Add he PSECT directive. JBS 22-DEC-7 
¥ FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 
FORSREAD_IF, FORSREAD_10, FORSWRITE_IF, FORSWRITE_10, 
FORSREAD_KU, FORSREWRITE_SU, 
SBL eWay 1979 
Remove all entry polors that need object time formatting, 
pedis them in FORSENTRY_OBJ so that we can arrange to 
oad the format compiler only when it is needed. 

JBS 26-JUN-1979 
1-007 = Remove entry point FORSENCODE_MF; we will code a new module 

for it and FOR$$10_BEG 8 see how much 1/0 initiation time 
improves. JBS 02-JuL-1979 
1-008 - Do Likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
1-009 - Remove all entry points and add FORSREAD_50; each entry 
point gets its own module do we can selectively load 
the necessary UDF and REC modules. JBS 09-JUL-1979 
BEG. SBL 5-Dec-1979 
G*FORSSIO_BEG+2. JAW 21-Feb-1981 
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010 = New parameter format for FORS$$I0 
011 = Change BRW FORS$IO_BEG+2 to JMP 
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cr 
FORRTL.SRCJFORREADSO.MAR; 1 


p »SBTTL DECLARATIONS 
: INCLUDE FILES: 
0 o 
09 SFORPAR ; Define inter-module FORTRAN symbols 
SISBDEF ; Define statement type symbols 


: EXTERNAL SYMBOLS: 


~DSABL GBL ; Declare all external symbols 
-EXTRN FORSS$IO_BEG ; common 1/0 statement processing 


| 
++ 
: The pete references are to make sure the necessary UDF and REC 
3 modules are loaded. These are the routines which are called through | 
; the dispatch tables in FORSSDISPAT. 


.EXTRN FORSSUDF_RFO, FORSSUDF_RF1, FORSSUDF_RF9 
TEXTRN FORSSREC-RSFO, FORSSREC_RSF1, FORSSREC_RSF9 


3¢ 
; The following reference makes sure the format compiler is loaded. 
‘ .EXTRN FORSSFMT_COMPIL 


: MACROS: 
F NONE 
: PSECT DECLARATIONS: 


0000 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT LONG 


+ EQUATED SYMBOLS: 


OWN STORAGE: 
NONE 
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r FORTRAN READ SEQUENTIA 16-SEP-1984 :00:12 VAX/VMS Macro V04-0 
equential OBJ “FOR 6=-SEP- 259: 

AD S$ ial ECT FO EP-1984 4 


-SBTTL FORSREAD_SO = READ Sequential OBJECT-FORMATTED 


ae 
FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN 1/0 ayetee to perform 
a READ sequential OBJECT-FORMATTED 1/0 statement. 


; CALLING SEQUENCE: 


CALL FORSREAD_SO (unit.rl.v, format_adr.rt.r 
C, err_adr.j.r C, end_adr.j.rJ)) 


INPUT PARAMETERS: 


unit.rl.v Logical unit number 
format_adr.rt.t format string (needs compilaticn) 
err_adr.j.rJ optional ERR= address 
end_adr.j.rJ optional END= address 


IMPLICIT INPUTS: 
NONE except those used by FORS$$I0_BEG. 
; OUTPUT PARAMETERS: 
: NONE 
IMPLICIT OUTPUTS: 
; NONE except those left by FORS$IO_BEG. 
COMPLETION CODES: 
NONE 
; SIDE EFFECTS: 
NONE except those of FORSSIO_BEG. 


FORSREAD_SO:: -MASK  FORS$IO_BEG 
MOVZWL #ISBSK_ST_TY_RSF+ . 
<1aFORSV_OBJ-FMT>, RO ; Statement type 
JMP G*FORS$I0_BEG+2 ; branch past call mask 
END 


0 
FORRTL.SRCJFORREADSO.MAR; 1 


The working set Limit was 1050 pees. 

6703 bytes (14 pages) of virtual memory were used to buffer the intermediate co 

There were 20 pages of symbol table space a ace to hold 188 non-local and 8° local symbols. 
181 source Lines were read in Pass 1, "aie object records in Pass 2. | 
9 pages of virtual memory were used to define 2 macros. 
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Symbol table SEP=1984 PORRTL. gh RETF FORREADSO.MAR; 1 (4) 
FORSSFMT COMPIL ereerene X 0 
FORSSIO 6 eeeeeeee =X 
FORSSREC_RSFO eeeenere =X 8 
FORSSREC_RSF1 eeeeeeee xX 0 
FORSSREC_RSF9 teeeeere x 0 
FORSSUDF _RFO teeeeeee x 
FORSSUDF RF 1 eeeerere = X 90 
FORSSUDF “RF9 etkerene x 0 
FORSREAD- SO 00000000 RG 01 
FORSV_OB)_FMT = BOO On 88 
ISBSK"ST_TY_RSF = 0000000 
powsermeronmecraceeas $ | 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
s WS s 09000000 <¢ 9. 0.) NOPIC USR CON ABS LCL vot NOEXE NORD NOWRT NOVEC BYTE | 
_FORSCODE Q000000D ( 1 1.) PIC USR  CON~ REL LCL SHR EXE RD NOWRT NOVEC LONG 
eueeseusescouseeeseseese + | 
| Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 32 00:00:00.07 00:00:01.76 
Command processing 145 00:00:00.72 00:00:05.93 
Pass 1 127 00:00:01.26 00:00:04.38 
Symbol table sort 0 00:00:00.19 00:00:00.19 
Pass 2 47 00:00:00.49 00:00:02.17 
Symbol table output 3 00:00:00.01 00:00:00.10 
Psect synopsis output 2 00:00:00.03 00:00:00.03 
boese-reterense output 0 00:00:00.00 00:00:00.00 
Assembler run totals 358 00:00:02.78 00:00:14.57 | 


Macro library” name Macros defined 
~$255$0UA28 :CEORRTL OBJ JFORRTL.MLB; 1 3 
“$255$DUA28: (SYSLIBISTARLET.MLB; 


TOTALS (all libraries) 2 
183 GETS were required to define 2 macros. 


Be Be Be Be Oe Be Ge Se Se Be Se Be See Se Se Be Be Be Be Be Be Se ee Se Se Ge Se Oe Oe BH Se Se Se Se Se SHS ee Se Se Se SSeS ee SHS Se Se Se ee Oe SH Se FH ee 


There were no errors, warnings or information messages. 
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orere Rgtvo Run Statistics Ah etsy oo O:4é PORT ae oF OMREADSO.MAR: 1 shots (8) | 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORREADSO/OBJ=OBJ$:FORREADSO MSRC$:F ORREADSO/UPDATE=(ENH$:FORREADSO) +L I | 
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